﻿Imports System
Imports System.IO
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
<Serializable()> Public Class ParticleDeposition
    Implements ICloneable

    Private m_MethodSelected As Integer = 0 '粒子计算方法，共两种计算方法，=0时为第1第，=2时为第2种
    Private m_Method1 As New Method1
    Private m_Method2 As New Method2
    ''' <summary>
    ''' 粒子计算方法，共两种计算方法，=0时为第1第，=2时为第2种
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property MethodSelected() As Integer
        Get
            Return Me.m_MethodSelected
        End Get
        Set(ByVal value As Integer)
            Me.m_MethodSelected = value
        End Set
    End Property
    ''' <summary>
    ''' 方法1
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Method1() As Method1
        Get
            Return Me.m_Method1
        End Get
        Set(ByVal value As Method1)
            Me.m_Method1 = value
        End Set
    End Property
    ''' <summary>
    ''' 方法2
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Property Method2() As Method2
        Get
            Return Me.m_Method2
        End Get
        Set(ByVal value As Method2)
            Me.m_Method2 = value
        End Set
    End Property

    Public Function Clone() As Object Implements System.ICloneable.Clone
        Dim obj As New ParticleDeposition
        obj.m_MethodSelected = Me.m_MethodSelected  '粒子计算方法，共两种计算方法，=0时为第1第，=2时为第2种
        obj.m_Method1 = Me.m_Method1.Clone
        obj.m_Method2 = Me.m_Method2.Clone
        Return obj
    End Function
End Class
